30 / 250
4*8
setwd("C:/Users/gschuma1/surfdrive/Papers/Empathic Concern Replication/Data")
load("study_1.RData")
data$interest
table(data$interest)
106 + 428
106 / (sum(data$interest))
428 + 610 + 117
106 / (428 + 610 + 117)
106 / (428 + 610 + 117 + 106)
106+428 / (428 + 610 + 117 + 106)
(106+428)
/ (428 + 610 + 117 + 106)
(106+428) / (428 + 610 + 117 + 106)
colnames(data)
data$LFT
which(data$LFT<26)
data$interest[which(data$LFT<26)]
table(data$interest[which(data$LFT<26)])
(26 + 50) / (26+50+72+16)
